with Ada.Streams;
with Ada.Streams.Stream_IO;
package IO_Utils is

   subtype Stream_Class is Ada.Streams.Root_Stream_Type'Class;

   package Stream_IO renames Ada.Streams.Stream_IO;

   procedure Read_File_Stream
     (Filename : String;
      Process   : not null access procedure (FS : not null access Stream_Class));


   procedure Read_File
     (Filename : String;
      Process   : not null access procedure (F : in out Stream_IO.File_Type));

end IO_Utils;
